home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / ShareMailGiftware / AmigaTalk / prelude / Integer.p < prev    next >
Text File  |  2002-10-27  |  6KB  |  182 lines
  1. pTempVar <- <primitive 110 37 >
  2. <primitive 112 pTempVar 1  " timesRepeat: " \
  3.   #( #[ 16r50 16r72 16r22 16r20 16rC7 16rF7 16r0B 16r21 16rA5 16rF2 16r22 \
  4.         16r51 16rC0 16rF1 16r72 16rF2 16rF9 16r10 16rF2 16rF5] \
  5.     #(  )) >
  6.  
  7. <primitive 112 pTempVar 2  " intNegRem: " \
  8.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r12 16r20 16r20 16r50 16rC7 \
  9.         16rF7 16r03 16r5A 16rF8 16r02 16rF2 16r51 16rC2 16r72 16r22 \
  10.         16r21 16rCD 16rF8 16r04 16rF2 16r20 16r0A 16r23 16rF3 16rF5 \
  11.        ] \
  12.     #(  )) >
  13.  
  14. <primitive 112 pTempVar 3  " rem: " \
  15.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  16.         16r1D 16rF8 16r04 16rF2 16r20 16r0A 16r23 16rF3 16rF5] \
  17.     #(  )) >
  18.  
  19. <primitive 112 pTempVar 4  " asSignedOctal " \
  20.   #( #[ 16r20 16r58 16r5C 16rFA 16r03 16r1A 16rF3 16rF5] \
  21.     #(  )) >
  22.  
  23. <primitive 112 pTempVar 5  " asSignedBinary " \
  24.   #( #[ 16r20 16r52 16r5C 16rFA 16r03 16r1A 16rF3 16rF5] \
  25.     #(  )) >
  26.  
  27. <primitive 112 pTempVar 6  " asSignedHex " \
  28.   #( #[ 16r20 16r05 16r10 16r5C 16rFA 16r03 16r1A 16rF3 16rF5] \
  29.     #(  )) >
  30.  
  31. <primitive 112 pTempVar 7  " asOctal " \
  32.   #( #[ 16r20 16r58 16r5B 16rFA 16r03 16r1A 16rF3 16rF5] \
  33.     #(  )) >
  34.  
  35. <primitive 112 pTempVar 8  " asBinary " \
  36.   #( #[ 16r20 16r52 16r5B 16rFA 16r03 16r1A 16rF3 16rF5] \
  37.     #(  )) >
  38.  
  39. <primitive 112 pTempVar 9  " asHex " \
  40.   #( #[ 16r20 16r05 16r10 16r5B 16rFA 16r03 16r1A 16rF3 16rF5] \
  41.     #(  )) >
  42.  
  43. <primitive 112 pTempVar 10  " radix: " \
  44.   #( #[ 16r20 16r21 16r5C 16rFA 16r03 16r1A 16rF3 16rF5] \
  45.     #(  )) >
  46.  
  47. <primitive 112 pTempVar 11  " // " \
  48.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  49.         16r13 16rF8 16r04 16rF2 16r20 16r0A 16r23 16rF3 16rF5] \
  50.     #(  )) >
  51.  
  52. <primitive 112 pTempVar 12  " quo: " \
  53.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  54.         16r1C 16rF8 16r04 16rF2 16r20 16r0A 16r23 16rF3 16rF5] \
  55.     #(  )) >
  56.  
  57. <primitive 112 pTempVar 13  " odd " \
  58.   #( #[ 16r20 16r52 16rCD 16r50 16rCA 16rF3 16rF5] \
  59.     #(  )) >
  60.  
  61. <primitive 112 pTempVar 14  " noMask: " \
  62.   #( #[ 16r50 16r20 16r21 16rC5 16rC9 16rF3 16rF5] \
  63.     #(  )) >
  64.  
  65. <primitive 112 pTempVar 15  " lcm: " \
  66.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r0A 16r20 16r21 16rC2 16r20 \
  67.         16r21 16r0B 16r1C 16rCE 16rF8 16r04 16rF2 16r20 16r0A 16r23 \
  68.         16rF3 16rF5] \
  69.     #(  )) >
  70.  
  71. <primitive 112 pTempVar 16  " highBit " \
  72.   #( #[ 16r20 16rFA 16r01 16r22 16rF3 16rF5] \
  73.     #(  )) >
  74.  
  75. <primitive 112 pTempVar 17  " gcd: " \
  76.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  77.         16r14 16rF8 16r04 16rF2 16r20 16r0A 16r23 16rF3 16rF5] \
  78.     #(  )) >
  79.  
  80. <primitive 112 pTempVar 18  " factorial " \
  81.   #( #[ 16r20 16rFA 16r01 16r26 16rF3 16rF5] \
  82.     #(  )) >
  83.  
  84. <primitive 112 pTempVar 19  " even " \
  85.   #( #[ 16r20 16r52 16rCD 16r50 16rC9 16rF3 16rF5] \
  86.     #(  )) >
  87.  
  88. <primitive 112 pTempVar 20  " bitXor: " \
  89.   #( #[ 16r20 16r21 16rFA 16r02 16r18 16rF3 16rF5] \
  90.     #(  )) >
  91.  
  92. <primitive 112 pTempVar 21  " bitShift: " \
  93.   #( #[ 16r20 16r21 16rFA 16r02 16r19 16rF3 16rF5] \
  94.     #(  )) >
  95.  
  96. <primitive 112 pTempVar 22  " bitOr: " \
  97.   #( #[ 16r20 16r21 16rFA 16r02 16r16 16rF3 16rF5] \
  98.     #(  )) >
  99.  
  100. <primitive 112 pTempVar 23  " bitInvert " \
  101.   #( #[ 16r20 16rFA 16r01 16r21 16rF3 16rF5] \
  102.     #(  )) >
  103.  
  104. <primitive 112 pTempVar 24  " bitAt: " \
  105.   #( #[ 16r20 16r21 16rFA 16r02 16r15 16rF3 16rF5] \
  106.     #(  )) >
  107.  
  108. <primitive 112 pTempVar 25  " bitAnd: " \
  109.   #( #[ 16r20 16r21 16rFA 16r02 16r17 16rF3 16rF5] \
  110.     #(  )) >
  111.  
  112. <primitive 112 pTempVar 26  " asString " \
  113.   #( #[ 16r20 16rFA 16r01 16r25 16rF3 16rF5] \
  114.     #(  )) >
  115.  
  116. <primitive 112 pTempVar 27  " asFloat " \
  117.   #( #[ 16r20 16rFA 16r01 16r27 16rF3 16rF5] \
  118.     #(  )) >
  119.  
  120. <primitive 112 pTempVar 28  " asCharacter " \
  121.   #( #[ 16r20 16rFA 16r01 16r24 16rF3 16rF5] \
  122.     #(  )) >
  123.  
  124. <primitive 112 pTempVar 29  " anyMask: " \
  125.   #( #[ 16r50 16r20 16r21 16rFA 16r02 16r17 16rCA 16rF3 16rF5] \
  126.     #(  )) >
  127.  
  128. <primitive 112 pTempVar 30  " allMask: " \
  129.   #( #[ 16r21 16r20 16r21 16rFA 16r02 16r17 16rC9 16rF3 16rF5] \
  130.     #(  )) >
  131.  
  132. <primitive 112 pTempVar 31  " / " \
  133.   #( #[ 16r20 16r0A 16r10 16r21 16rBF 16rF3 16rF5] \
  134.     #(  )) >
  135.  
  136. <primitive 112 pTempVar 32  " * " \
  137.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  138.         16r12 16rF8 16r05 16rF2 16r20 16r21 16r91 16r00 16rF3 16rF5 \
  139.        ] \
  140.     #( #*  )) >
  141.  
  142. <primitive 112 pTempVar 33  " - " \
  143.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  144.         16r0B 16rF8 16r05 16rF2 16r20 16r21 16r91 16r00 16rF3 16rF5 \
  145.        ] \
  146.     #( #-  )) >
  147.  
  148. <primitive 112 pTempVar 34  " + " \
  149.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  150.         16r0A 16rF8 16r05 16rF2 16r20 16r21 16r91 16r00 16rF3 16rF5 \
  151.        ] \
  152.     #( #+  )) >
  153.  
  154. <primitive 112 pTempVar 35  " < " \
  155.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  156.         16r0C 16rF8 16r05 16rF2 16r20 16r21 16r91 16r00 16rF3 16rF5 \
  157.        ] \
  158.     #( #<  )) >
  159.  
  160. <primitive 112 pTempVar 36  " > " \
  161.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  162.         16r0D 16rF8 16r05 16rF2 16r20 16r21 16r91 16r00 16rF3 16rF5 \
  163.        ] \
  164.     #( #>  )) >
  165.  
  166. <primitive 112 pTempVar 37  " = " \
  167.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  168.         16r10 16rF8 16r05 16rF2 16r20 16r21 16r91 16r00 16rF3 16rF5 \
  169.        ] \
  170.     #( #=  )) >
  171.  
  172. <primitive 98 #Integer \
  173.   <primitive 97 #Integer #Number #AmigaTalk:General/Integer.st \
  174.    #(  ) \
  175.    #( #timesRepeat: #intNegRem: #rem: #asSignedOctal #asSignedBinary  \
  176.        #asSignedHex #asOctal #asBinary #asHex #radix: #// #quo: #odd #noMask: #lcm:  \
  177.        #highBit #gcd: #factorial #even #bitXor: #bitShift: #bitOr: #bitInvert #bitAt:  \
  178.        #bitAnd: #asString #asFloat #asCharacter #anyMask: #allMask: #/ #* #- #+ #< #>  \
  179.        #=  ) \
  180.   pTempVar 3 5 > #ordinary >
  181.  
  182.